home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / COMAL / T-COMAL Today / (k)td.d64 / proc.show'names < prev    next >
Text File  |  2007-02-28  |  2KB  |  83 lines
  1. 0010 //
  2. 0020 ╨╥╧├ SHOWTABLE(SKIP) ├╠╧╙┼─
  3. 0030   // BY ═IKE ╠AWRENCE
  4. 0040   //    ╘UCSON, ┴RIZONA
  5. 0050   //
  6. 0060   // IF SKIP<>0 DOES NOT
  7. 0070   // PRINT UNKNOWN NAMES
  8. 0080   //
  9. 0090   ╨╥╔╬╘ "├URRENT SYMBOL TABLE "
  10. 0100   ╨╥╔╬╘ 
  11. 0110   POINT:=╨┼┼╦($18)+256*╨┼┼╦($19)
  12. 0120   ST:=POINT
  13. 0130   TOTAL:=0
  14. 0140   UNKNOWN:=0
  15. 0150   //
  16. 0160   ╥┼╨┼┴╘ 
  17. 0170     JUMP:=╨┼┼╦(POINT)
  18. 0180     TYPE:=╨┼┼╦(POINT+1)
  19. 0190     ╔╞ ╬╧╘ TYPE ╘╚┼╬ UNKNOWN:+1
  20. 0200     ╔╞ ╬╧╘ (SKIP ┴╬─ ╬╧╘ TYPE) ╘╚┼╬
  21. 0210       TOTAL:+1
  22. 0220       PRINTTYPE(TYPE)
  23. 0230       ╨╥╔╬╘ ": ",╘┴┬(24),
  24. 0240       ╞╧╥ I:=POINT+4 ╘╧ POINT+JUMP-1 ─╧
  25. 0250         ╨╥╔╬╘ ├╚╥$(╨┼┼╦(I)),
  26. 0260       ┼╬─╞╧╥ I
  27. 0270       ╨╥╔╬╘ 
  28. 0280     ┼╬─╔╞ 
  29. 0290     POINT:+JUMP
  30. 0300   ╒╬╘╔╠ ╨┼┼╦(POINT)=0
  31. 0310   ╨╥╔╬╘ 
  32. 0320   ╨╥╔╬╘ "NUMBER PRINTED:";TOTAL
  33. 0330   ╨╥╔╬╘ 
  34. 0340   ╨╥╔╬╘ "NUMBER UNKNOWN:";UNKNOWN
  35. 0350   ╨╥╔╬╘ 
  36. 0360   ╨╥╔╬╘ "TABLE SIZE:";POINT-ST;"BYTES"
  37. 0370   ╨╥╔╬╘ 
  38. 0380   ╨╥╔╬╘ "┼ND OF TABLE"
  39. 0390   //
  40. 0400   ╨╥╧├ PRINTTYPE(TYPE) 
  41. 0410     ├┴╙┼ TYPE ╧╞
  42. 0420     ╫╚┼╬ 0
  43. 0430       ╨╥╔╬╘ "UNKNOWN",
  44. 0440     ╫╚┼╬ 16
  45. 0450       ╨╥╔╬╘ "SIMPLE REAL",
  46. 0460     ╫╚┼╬ 17
  47. 0470       ╨╥╔╬╘ "SIMPLE INTEGER",
  48. 0480     ╫╚┼╬ 18
  49. 0490       ╨╥╔╬╘ "SIMPLE STRING",
  50. 0500     ╫╚┼╬ 20
  51. 0510       ╨╥╔╬╘ "PROCEDURE",
  52. 0520     ╫╚┼╬ 21
  53. 0530       ╨╥╔╬╘ "REAL FUNCTION",
  54. 0540     ╫╚┼╬ 22
  55. 0550       ╨╥╔╬╘ "INTEGER FUNCTION",
  56. 0560     ╫╚┼╬ 23
  57. 0570       ╨╥╔╬╘ "STRING FUNCTION",
  58. 0580     ╫╚┼╬ 24
  59. 0590       ╨╥╔╬╘ "PACKAGE NAME",
  60. 0600     ╫╚┼╬ 48
  61. 0610       ╨╥╔╬╘ "REAL PARAMETER",
  62. 0620     ╫╚┼╬ 49
  63. 0630       ╨╥╔╬╘ "INTEGER PARAMETER",
  64. 0640     ╫╚┼╬ 50
  65. 0650       ╨╥╔╬╘ "STRING PARAMETER",
  66. 0660     ╫╚┼╬ 80
  67. 0670       ╨╥╔╬╘ "REAL REF PARAMETER",
  68. 0680     ╫╚┼╬ 81
  69. 0690       ╨╥╔╬╘ "INTEGER REF PARAMETER",
  70. 0700     ╫╚┼╬ 82
  71. 0710       ╨╥╔╬╘ "STRING REF PARAMETER",
  72. 0720     ╫╚┼╬ 144
  73. 0730       ╨╥╔╬╘ "REAL ARRAY",
  74. 0740     ╫╚┼╬ 145
  75. 0750       ╨╥╔╬╘ "INTEGER ARRAY",
  76. 0760     ╫╚┼╬ 146
  77. 0770       ╨╥╔╬╘ "STRING ARRAY",
  78. 0780     ╧╘╚┼╥╫╔╙┼ 
  79. 0790       ╨╥╔╬╘ "UNKNOWN TYPE";TYPE,
  80. 0800     ┼╬─├┴╙┼ 
  81. 0810   ┼╬─╨╥╧├ PRINTTYPE
  82. 0820 ┼╬─╨╥╧├ SHOWTABLE
  83.